home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 15 / BBS in a box XV-1.iso / Files / Internet / Chat IRC / Outland Min Install 1.32.sit / Outland Minimum Installer / Outland Minimum Installer / ARA USR v.terbo next >
Encoding:
Text File  |  1994-01-22  |  3.8 KB  |  225 lines  |  [mlts/slnk]
  1. ! "US Robotics Courier V.32terbo, 19.2K max (no error control)"
  2. ! USR-AE 11/93
  3. !
  4. @ORIGINATE
  5. @ANSWER
  6. !
  7. @LABEL 1
  8. serreset 19200, 0, 8, 1
  9. !
  10. ! first recall the factory configuration,
  11. ! and get the modem in enhanced command state
  12. !
  13. matchclr
  14. matchstr 1 4 "OK\13\10"
  15. write "AT&F\13"
  16. matchread 30
  17. jump 59
  18. !
  19. ! Next, Set up the configuration: drop connection after losing DTR
  20. !                               Turn off auto answer and echo
  21. !
  22. @LABEL 4
  23. pause 5
  24. matchstr 1 5 "OK\13\10"
  25. write "AT&D2S0=0E0V1\13"
  26. matchread 30
  27. jump 59
  28. !
  29. ! Next, turn on CTS flow control, disable MNP and error control,
  30. !    extended result codes
  31. !
  32. @LABEL 5
  33. pause 5
  34. matchstr 1 6 "OK\13\10"
  35. write "ATB0&H1&M0X4&A0\13"
  36. matchread 30
  37. jump 59
  38. !
  39. ! If speaker on flag is true, jump to label 8.  Else turn off the speaker
  40. !
  41. @LABEL 6
  42. ifstr 2 8 "1"
  43. pause 5
  44. matchstr 1 8 "OK\13\10"
  45. write "ATM0\13"
  46. matchread 30
  47. jump 59
  48. !
  49. ! The modem is ready so enable answering, or originate a call
  50. !
  51. @LABEL 8
  52. pause 5
  53. ifANSWER 30
  54. note "Dialing ^1" 3
  55. write "ATDT^1\13"
  56. !
  57. @LABEL 9
  58. matchstr 1  11 "CONNECT 1200\13\10"
  59. matchstr 2  12 "CONNECT 2400\13\10"
  60. matchstr 3  13 "CONNECT 4800\13\10"
  61. matchstr 4  19 "CONNECT 7200\13\10"
  62. matchstr 5  14 "CONNECT 9600\13\10"
  63. matchstr 6  20 "CONNECT 12000\13\10"
  64. matchstr 7  18 "CONNECT 14400\13\10"
  65. matchstr 8  21 "CONNECT 16800\13\10"
  66. matchstr 9  22 "CONNECT 19200\13\10"
  67. matchstr 10 50 "NO CARRIER\13\10"
  68. matchstr 11 50 "ERROR\13\10"
  69. matchstr 12 52 "NO DIAL TONE\13\10"
  70. matchstr 13 53 "BUSY\13\10"
  71. matchstr 14 54 "NO ANSWER\13\10"
  72. matchread 700
  73. jump 59
  74. !
  75. @LABEL 11
  76. note "Communicating at 1200 bps." 2
  77. serreset 1200, 0, 8, 1
  78. jump 15
  79. !
  80. @LABEL 12
  81. note "Communicating at 2400 bps." 2
  82. serreset 2400, 0, 8, 1
  83. jump 15
  84. !
  85. @LABEL 13
  86. note "Communicating at 4800 bps." 2
  87. serreset 4800, 0, 8, 1
  88. jump 15
  89. !
  90. @LABEL 19
  91. note "Communicating at 7200 bps." 2
  92. serreset 9600, 0, 8, 1
  93. CommunicatingAt 7200
  94. jump 15
  95. !
  96. @LABEL 14
  97. note "Communicating at 9600 bps." 2
  98. serreset 9600, 0, 8, 1
  99. jump 15
  100. !
  101. @LABEL 20
  102. note "Communicating at 12000 bps." 2
  103. serreset 19200, 0, 8, 1
  104. CommunicatingAt 12000
  105. jump 15
  106. !
  107. @LABEL 18
  108. note "Communicating at 14400 bps." 2
  109. serreset 19200, 0, 8, 1
  110. CommunicatingAt 14400
  111. jump 15
  112. !
  113. @LABEL 21
  114. note "Communicating at 16800 bps." 2
  115. serreset 19200, 0, 8, 1
  116. CommunicatingAt 16800
  117. jump 15
  118. !
  119. @LABEL 22
  120. note "Communicating at 19200 bps." 2
  121. serreset 19200, 0, 8, 1
  122. CommunicatingAt 19200
  123. jump 15
  124. !
  125. @LABEL 15
  126. HSReset 0 1 0 0 0 0
  127. ifANSWER 16
  128. pause 30
  129. @LABEL 16
  130. exit 0
  131. !
  132. ! @ANSWER
  133. ! Set up the modem to answer
  134. @LABEL 30
  135. write "ATS0=1\13"
  136. matchstr 1 31 "OK\13\10"
  137. matchread 30
  138. jump 59
  139. !
  140. @LABEL 31
  141. matchstr 1  32 "RING\13\10"
  142. matchstr 2  11 "CONNECT 1200\13\10"
  143. matchstr 3  12 "CONNECT 2400\13\10"
  144. matchstr 4  13 "CONNECT 4800\13\10"
  145. matchstr 5  19 "CONNECT 7200\13\10"
  146. matchstr 6  14 "CONNECT 9600\13\10"
  147. matchstr 7  20 "CONNECT 12000\13\10"
  148. matchstr 8  18 "CONNECT 14400\13\10"
  149. matchstr 9  21 "CONNECT 16800\13\10"
  150. matchstr 10 22 "CONNECT 19200\13\10"
  151. matchstr 11 50 "NO CARRIER\13\10"
  152. matchstr 12 50 "ERROR\13\10"
  153. matchstr 13 52 "NO DIAL TONE\13\10"
  154. matchstr 14 53 "BUSY\13\10"
  155. matchstr 15 54 "NO ANSWER\13\10"
  156. matchread 700
  157. jump 31
  158. !
  159. @LABEL 32
  160. userhook 1
  161. note "Answering phone" 2
  162. jump 31
  163. !
  164. ! 50: error messages
  165. !
  166. @LABEL 50
  167. exit -6021
  168. !
  169. @LABEL 52
  170. exit -6020
  171. !
  172. @LABEL 53
  173. exit -6022
  174. !
  175. @LABEL 54
  176. exit -6023
  177. !
  178. @LABEL 59
  179. exit -6019
  180. !
  181. ! Hang up the modem
  182. !
  183. @HANGUP
  184. @LABEL 60
  185. settries 0
  186. HSReset 0 0 0 0 0 0
  187. @LABEL 61
  188. write "ATH0\13"
  189. matchclr
  190. matchstr 1 62 "NO CARRIER\13\10"
  191. matchstr 2 62 "OK\13\10"
  192. matchstr 3 62 "ERROR\13\10"
  193. matchread 30
  194. inctries
  195. iftries 3 62
  196. ! no response, try escape sequence
  197. write "+++"
  198. matchclr
  199. matchstr 1 61 "OK\13\10"
  200. matchread 15
  201. ! try dropping DTR
  202. DTRClear
  203. pause 15
  204. DTRSet
  205. pause 15
  206. jump 61
  207. !
  208. @LABEL 62
  209. ! recall the factory settings
  210. pause 15
  211. write "AT&F\13"
  212. matchclr
  213. matchstr 1 63 "OK\13\10"
  214. matchread 30
  215. !
  216. @LABEL 63
  217. pause 5
  218. matchstr 1 64 "OK\13\10"
  219. write "ATS0=0\13"
  220. matchread 20
  221. !
  222. @LABEL 64
  223. exit 0
  224.  
  225.